home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed25.d64 / exercise 3 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  134 lines
  1. 200 PRINT"[147][159]";:POKE53272,21:POKE53280,0:POKE53281,0
  2. 201 PRINT"      A TPUG EDUCATIONAL PROGRAM":GOSUB591
  3. 202 PRINT"                                        [146]";
  4. 203 PRINT"                                        [146]";
  5. 204 PRINT"                                        [146]";
  6. 205 PRINT"             ENGLISH CONTEXT            [146]";
  7. 206 PRINT"                                        [146]";
  8. 207 PRINT"               EXERCISE 3               [146]";
  9. 208 PRINT"                                        [146]";
  10. 209 PRINT"[159]                                        [146]";
  11. 210 PRINT"                                        [146]":GOSUB591:GOSUB560
  12. 211 PRINT"          INSTRUCTIONS?  Y/N         [151]T"
  13. 212 GETR$:IFR$<>"Y"ANDR$<>"N"ANDR$<>"T"THEN212
  14. 213 IFR$="Y"THENGOSUB400
  15. 214 IFR$="T"THENGOSUB2200
  16. 215 PRINT"[147][159] WHAT IS YOUR NAME?":GOSUB560:GOSUB590
  17. 216 INPUT N$
  18. 217 PRINT"[147][159] AND AWAY WE GO........":GOSUB591:GOSUB500:GOSUB590
  19. 218 GOTO1000
  20. 235 GOSUB591:GOSUB560
  21. 236 PRINT"[154] PRESS SPACE BAR TO CONTINUE [146][155]"
  22. 237 GETU$:IFU$<>CHR$(32)THEN237
  23. 238 RETURN
  24. 240 GOSUB592:GOSUB500
  25. 242 PRINT"[154]        >>>  [211][208][193][195][197][160][194][193][210]  <<<"
  26. 244 GETUI$:IFUI$<>" "THEN244
  27. 246 RETURN
  28. 400 PRINT"[147]":POKE53281,0:POKE53280,0
  29. 431 PRINT"[159] THIS IS A WORD GAME FOR GRADE 4         PUPILS."
  30. 432 PRINT" A SENTENCE WILL BE SHOWN BUT A WORD     WILL BE MISSING.
  31. 434 [153]" A LIST OF WORDS WILL BE SHOWN IN"
  32. 435 [153]" THE MIDDLE OF THE SCREEN."
  33. 436 [153]" CHOOSE THE WORD THAT WILL FINISH"
  34. 437 [153]" THE SENTENCE AND MAKE SENSE."
  35. 441 [153]" AFTER YOU TYPE IN THE WORD, PRESS        RETURN WAIT":[141]235
  36. 443 [153]"OPENLOAD LET'S LOOK AT AN EXAMPLE."
  37. 444 [153]" MARS IS KNOWN AS THE RED  ---- .":[153]"SYS ? OPENONONON"
  38. 446 [141]2300:[153]"":[141]235
  39. 447 [153]"ON ? SYSPLANET IS THE CORRECT CHOICE.OPEN  "
  40. 453 [141]235:[142]
  41. 499 :
  42. 500 [143] <YES>
  43. 505 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  44. 510 [151]54296,15:[151]54277,42:[151]54278,250
  45. 515 [151]54276,23:[151]54273,23:[151]54272,191
  46. 520 [129]TM[178]1[164]150:[130]:[151]54276,32:[129]TM[178]1[164]200:[130]
  47. 525 [151]54296,0:[142]
  48. 530 [143] <NO>
  49. 535 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  50. 540 [151]54296,15:[151]54277,18:[151]54278,242
  51. 545 [151]54276,33:[151]54273,4:[151]54272,48
  52. 550 [129]TM[178]1[164]300:[130]:[151]54276,32:[129]TM[178]1[164]400:[130]
  53. 555 [151]54296,0:[142]
  54. 560 [143] <BLIP>
  55. 565 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  56. 570 [151]54296,7:[151]54277,42:[151]54278,250
  57. 575 [151]54276,23:[151]54273,23:[151]54272,191
  58. 580 [129]TM[178]1[164]30:[130]:[151]54276,32:[129]TM[178]1[164]50:[130]
  59. 585 [151]54296,0:[142]
  60. 590 [129]TM[178]1[164]500:[130]:[142]
  61. 591 [129]TM[178]1[164]1000:[130]:[142]
  62. 592 [129]TM[178]1[164]2000:[130]:[142]
  63. 593 [129]TM[178]1[164]3000:[130]:[142]
  64. 999 :
  65. 1000 [153]"LOAD";:[140]:[151]53281,0:[151]53280,0
  66. 1005 C[178]8:H[178]0
  67. 1010 [129]J[178]1[164]C
  68. 1015 [135]A$,B$
  69. 1020 [153]"PRINT#LOAD ED-25 3 CLR"[163]14)""N$[163]32)"LISTSTEP:"H
  70. 1025 [153]"PRINT ";A$
  71. 1030 [141]2300:[141]560
  72. 1035 [133]"SYS >>>  ";SX$
  73. 1040 [139]SX$[178]B$[137]1080
  74. 1045 [139]Z[178]2[167]H[178]H[170]1:[153]"DEFON THE CORRECT WORD IS SYS"B$:[141]530:[141]592
  75. 1050 [139]Z[178]2[167][153]"":[141]235:[137]1090
  76. 1055 Z[178]Z[170]1:H[178]H[170]1
  77. 1060 [153]"DEFNO. TRY AGAIN!WAIT":[141]530
  78. 1070 [141]592:[137]1020
  79. 1080 [153]""[166]27)" YES! WAIT":[141]500:[141]592:H[178]H[170]1
  80. 1090 Z[178]0:[130]J
  81. 1099 :
  82. 2000 [153]"LOADYOU HAVE NOW FINISHED EXERCISE 3.":[141]591:[141]560
  83. 2005 [153]"YOU HAVE ANSWERED"C"QUESTIONS"
  84. 2010 [153]"               IN"H"ATTEMPTS."
  85. 2020 [139]H[179]9[167][153]"SYS                EXCELLENT!              WAIT":[137]2050
  86. 2030 [139]H[179]10[167][153]"OPEN              GOOD WORK!                WAIT":[137]2050
  87. 2040 [153]"DEF       TRY HARDER!  DO IT AGAIN!        WAIT"
  88. 2050 [153]"":[141]235
  89. 2055 [153]"PRINTLOADYOU HAVE A CHOICE:
  90. 2060 PRINT"PRESS  R [146] TO REPEAT EXERCISE 3
  91. 2062 [153]"PRESS  G WAIT TO GO EXERCISE 4
  92. 2064 PRINT"PRESS  M [146] TO GO TO THE DISK MENU
  93. 2070 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"M"[175]R$[179][177]"G"[167]2070
  94. 2072 [140]
  95. 2074 [139]R$[178]"R"[167]200
  96. 2076 [139]R$[178]"M"[167]2090
  97. 2080 [153]"LOAD GOING TO EXERCISE 4
  98. 2082 LOAD"EXERCISE 4",8
  99. 2084 RUN
  100. 2086 END
  101. 2090 PRINT"[147] RETURNING TO THE DISK MENU
  102. 2092 [147]"MENU",8
  103. 2094 [138]
  104. 2096 [128]
  105. 2099 :
  106. 2100 [141]235:[151]S1,0:[142]
  107. 2110 [131]HE WILL TRY TO ---- A NEW SHIP.,DESIGN
  108. 2115 [131]WILL THE ROSE BUSH ---- THE COLD        WINTER?,SURVIVE
  109. 2120 [131]DID YOU TAKE THE ---- ROUTE TO SCHOOL?,DIRECT
  110. 2125 [131]DID GILLIAN ---- TO HER GRANDFATHER?,BECKON
  111. 2130 [131]DID THEY ---- THE MAN BREAKING THE      WINDOW?,OBSERVE
  112. 2135 [131]VENUS IS A VERY BRIGHT ----.,PLANET
  113. 2140 [131]MISSISSAUGA IS A ---- CITY WEST OF      TORONTO.,MODERN
  114. 2145 [131]DID THEY TRY TO ---- WITH YOU?,COMMUNICATE
  115. 2199 :
  116. 2200 [153]"LOAD HERE ARE THE WORDS FOR UNIT 3:LIST":[141]560:[141]591:
  117. 2210 [153]" 1. HE WILL TRY TO SYSDESIGNLIST A NEW SHIP.
  118. 2220 PRINT" 2. WILL THE ROSE BUSH [158]SURVIVE[155] THE          WINTER?
  119. 2230 [153]" 3. DID YOU TAKE THE SYSDIRECTLIST ROUTE           TO SCHOOL?
  120. 2240 PRINT" 4. DID GILLIAN [158]BECKON[155] TO HER               GRANDFATHER?
  121. 2250 [153]" 5. DID THEY SYSOBSERVELIST THE MAN BREAKING       THE WINDOW?
  122. 2260 PRINT" 6. VENUS IS A VERY BRIGHT [158]PLANET[155].
  123. 2270 [153]" 7. MISSISSAUGA IS A SYSMODERNLIST CITY WEST       OF TORONTO.
  124. 2280 PRINT" 8. DID THEY TRY TO [158]COMMUNICATE[155]             WITH YOU?
  125. 2290 [141]235:[137]200
  126. 2299 :
  127. 2300 [153]" LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN"
  128. 2310 [153]" CHOOSE YOUR ANSWER FROM THE FOLLOWING:OPEN"
  129. 2320 [153][166]12)"   DIRECT  ":[153][166]12)"   COMMUNICATE"
  130. 2330 [153][166]12)"   DESIGN   ":[153][166]12)"   PLANET    "
  131. 2340 [153][166]12)"   SURVIVE  ":[153][166]12)"   OBSERVE   "
  132. 2350 [153][166]12)"   BECKON   ":[153][166]12)"   MODERN    ":[142]
  133. 3500 [143] WHC 92:04:07  93:04:04
  134.